home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / PROC2.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  591 b   |  25 lines
  1.  
  2. *MACROS INTERNAL TO MAIN, PROC, FUNC, INTR
  3.  
  4. $PROC2 $MACRO            A,B
  5.        $PROC3            :A:
  6.        $IF  B.L#=0       IF MORE RECURS
  7.        $PROC2            :B:
  8.        $ENDIF
  9.        $END
  10.  
  11. $PROC3 $MACRO            A,B
  12.        $IF  A.L#=0
  13. :A:    EQU  $            INTL NAME DEF
  14.        $VAR L
  15.        $ASG '$$CNTR' TO L.S
  16. :L.SS::L.SV: EQU $       EXTL NAME DEF
  17.        DEF  :L.SS::L.SV:
  18.        $IF  B.L#=0
  19.        BSS  :B:          :B: WORDS
  20.        $ELSE
  21.        BSS  1            1 WORD
  22.        $ENDIF
  23.        $ENDIF
  24.        $ASG L.SV+1 TO L.SV NEXT ARG
  25.        $END